home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 18 / forthsup / bios.fth < prev    next >
Encoding:
Text File  |  1986-09-18  |  2.6 KB  |  72 lines
  1. \ Interfaces to BIOS and XBIOS system routines
  2.  
  3. decimal
  4.  
  5. 0 bios: getmpb  { l.mpb -- }
  6.  
  7. \ Device numbers for w.dev
  8.  
  9. 0 constant prt:    \ The parallel printer port
  10. 1 constant aux: \ The RS232 port
  11. 2 constant con: \ The console; keyboard and screen
  12. 3 constant midi: \ The midi port
  13. 4 constant kbd: \ The keyboard port
  14. 5 constant rawcon: \ Raw console; allows printing the funny character
  15.            \ symbols in the first 32 font positions
  16.  
  17. 1 bios: bconstat { w.dev -- w.ready? }
  18. 2 bios: bconin { w.dev -- l.char }
  19. 3 bios: bconout { w.char w.dev -- }
  20. 4 bios: rwabs { w.dev w.recno w.cnt a.buf w.rwflag -- l.err? }
  21. 5 bios: setexc { l.vec. w.vecnum -- l.oldvec }
  22. 6 bios: tickcal { -- l.ms/tick }
  23. 7 bios: getbpb { w.dev -- a.bpb }
  24. 8 bios: bcostat { w.dev -- l.ready? }
  25. 9 bios: mediach { w.dev -- l.changed? }
  26. 10 bios: drvmap { -- l.map }
  27. 11 bios: kbshift { w.mode -- l.mode }
  28.  
  29.  
  30. 0 xbios: initmous { l.vec a.param w.type -- }
  31. 1 xbios: ssbrk { w.amount -- }    \ Useless
  32. 2 xbios: _physBase { -- a.base }
  33. 3 xbios: _logBase { -- a.base }
  34. 4 xbios: _getRez { -- w.resolution }
  35. 5 xbios: _setScreen { w.rez a.physLoc a.logLoc -- }
  36. 6 xbios: _setPallete { a.pallete -- }
  37. 7 xbios: setColor { w.color w.colorNum -- w.oldcolor }
  38. 8 xbios: _floprd { w.cnt w.side w.track w.sect w.dev a.fill a.buf -- w.stat }
  39. 9 xbios: _flopwr { w.cnt w.side w.track w.sect w.dev l.fill a.buf -- w.stat }
  40. 10 xbios: _flopfmt
  41.    { w.virg l.mag w.ilv w.side w.trk w.spt w.dev l.fill a.buf -- w.stat }
  42. \ 11 obsolete
  43. 12 xbios: midiws { a.ptr w.cnt -- }
  44. 13 xbios: _mfpint { l.vector w.interrupt# -- }
  45. 14 xbios: iorec { w.dev -- a.input-record }
  46. 15 xbios: rsconf { w.scr w.tsr w.rsr w.ucr w.flowctl w.speed -- }
  47. 16 xbios: keytbl { a.capslock a.shift a.unshift -- a.keytab }
  48. 17 xbios: _random { -- l.random }
  49. 18 xbios: _protobt { w.execflag w.disktype l.serialno a.buf -- }
  50. 19 xbios: _flopver
  51.    { w.count w.sideno w.trackno w.sectno w.devno l.filler a.buf -- w.stat }
  52. 20 xbios: scrdmp { -- }
  53. 21 xbios: cursconf { w.operand w.function -- w.conf }
  54. 22 xbios: settime { l.datetime -- }
  55. 23 xbios: gettime { -- l.datetime }
  56. 24 xbios: bioskeys { -- }
  57. 25 xbios: ikbdws { a.ptr w.cnt -- }
  58. 26 xbios: jdisint { w.intno -- }
  59. 27 xbios: jenabint { w.intno -- }
  60. 28 xbios: giaccess { w.regno b.data -- b.olddata }
  61. 29 xbios: offgibit { w.bitno -- }
  62. 30 xbios: ongibit { w.bitno -- }
  63. 31 xbios: xbtimer {a.vec w.data w.control w.timer -- }
  64. 32 xbios: dosound { a.ptr -- }
  65. 33 xbios: setprt { w.config -- w.oldconfig }
  66. 34 xbios: kbdvbase { -- l.struct }
  67. 35 xbios: kbrate { w.repeat w.initial -- w.repeat-rate }
  68. 36 xbios: _prtblk { -- }
  69. 37 xbios: vsync { -- }
  70. 38 xbios: supexec { a.codeptr -- }
  71. 39 xbios: puntaes { -- }
  72.